home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / assemblr / library / screen / uniform / ufas014.asm < prev    next >
Assembly Source File  |  1993-07-28  |  1KB  |  47 lines
  1. ;MASM/ MS Quick ASM/ TASM
  2. ; MASM, MS Quick ASM ,TASM
  3. ; ufas14.asm  - generic example
  4. ;
  5.         DOSSEG
  6. EXTRN   UNIF:NEAR                    ; extern UNIF
  7. EXTRN   MOUSEON:NEAR                 ; extern MOUSEON
  8. EXTRN   MOUSEOFF:NEAR                ; extern MOUSEOFF
  9.         .MODEL SMALL
  10.         .CODE
  11.         jmp    start
  12.  
  13. INCLUDE UFAS01.MAC                   ; standard include file
  14. INCLUDE testfmt.MAC                  ; include file for testfmt
  15. format DB 'testfmt '                 ; format name
  16.  
  17. start:   push  cs
  18.          pop   ds
  19.          push  cs
  20.          pop   es
  21.  
  22.      call  MOUSEON               ; initialize mouse
  23.  
  24.      mov   word ptr FKZ,2        ; function identifier
  25.      mov   word ptr SM,0         ; cursor position
  26.      mov   word ptr RETC,112     ; shadow attribute
  27.      lea   bx,FKZ                ; push parameters
  28.      push  bx                    ; "
  29.      lea   bx,format             ; "
  30.      push  bx                    ; "
  31.      lea   bx,fld0               ; "
  32.      push  bx                    ; "
  33.      lea   bx,RETC               ; "
  34.      push  bx                    ; "
  35.      lea   bx,SM                 ; "
  36.      push  bx                    ; "
  37.      lea   bx,Atestfmt           ; "
  38.      push  bx                    ; "
  39.      call  UNIF                  ; call UNIF
  40.      add   sp,12                 ; stack restore
  41.      call  MOUSEOFF              ; hide mouse
  42.  
  43.      mov   ah,4ch                ; finish program
  44.          mov   al,0
  45.          int   21h
  46.          END
  47.